Reward change around BTC halving (esmv)
Effects on BTC
target <- "BTC"
base <- "BTC"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-05-11 19:23:43"),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-05-11 19:23:43"),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- "blank"
linetype_s <- "solid"
target_before <- "BSV"
target_after <- "BCH"
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$btc,
target_before,
target_after,
target_line = FALSE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
96.54
|
53.22
|
1.81
|
0.07
|
-7.78
|
200.85
|
4188.00
|
3755.00
|
1269.00
|
952.00
|
719854.32
|
674186.61
|
1148451.04
|
1132710.90
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
86.85
|
53.22
|
1.63
|
0.10
|
-17.46
|
191.17
|
4188.00
|
3755.00
|
1269.00
|
952.00
|
719854.32
|
674186.61
|
1148451.04
|
1132710.90
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
86.85
|
61.67
|
1.41
|
0.16
|
-34.02
|
207.73
|
4188.00
|
3755.00
|
1269.00
|
952.00
|
719854.32
|
674186.61
|
1148451.04
|
1132710.90
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
-0.13
|
0.11
|
-1.12
|
0.26
|
-0.34
|
0.09
|
4188.00
|
3755.00
|
1032.00
|
1302.00
|
586769.17
|
928234.16
|
944871.85
|
1452467.28
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
-0.12
|
0.11
|
-1.07
|
0.28
|
-0.34
|
0.10
|
4188.00
|
3755.00
|
1032.00
|
1302.00
|
586769.17
|
928234.16
|
944871.85
|
1452467.28
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
-0.12
|
0.13
|
-0.90
|
0.37
|
-0.38
|
0.14
|
4188.00
|
3755.00
|
1032.00
|
1302.00
|
586769.17
|
928234.16
|
944871.85
|
1452467.28
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_btc_on_btc <- output
Effects on BCH
target <- "BCH"
base <- "BTC"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-05-11 19:23:43"),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-05-11 19:23:43"),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- "blank"
linetype_s <- "solid"
target_before <- "BSV"
target_after <- "BCH"
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$bch,
target_before,
target_after,
target_line = FALSE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
18.06
|
56.70
|
0.32
|
0.75
|
-93.06
|
129.18
|
4011.00
|
4020.00
|
1107.00
|
1063.00
|
664799.29
|
640430.51
|
1082126.18
|
999375.58
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
17.54
|
56.70
|
0.31
|
0.76
|
-93.59
|
128.66
|
4011.00
|
4020.00
|
1107.00
|
1063.00
|
664799.29
|
640430.51
|
1082126.18
|
999375.58
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
17.54
|
65.09
|
0.27
|
0.79
|
-110.03
|
145.11
|
4011.00
|
4020.00
|
1107.00
|
1063.00
|
664799.29
|
640430.51
|
1082126.18
|
999375.58
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
0.38
|
0.11
|
3.30
|
0.00
|
0.15
|
0.60
|
4011.00
|
4020.00
|
1215.00
|
1237.00
|
717525.59
|
755638.86
|
1257452.96
|
1245568.57
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
0.38
|
0.11
|
3.29
|
0.00
|
0.15
|
0.60
|
4011.00
|
4020.00
|
1215.00
|
1237.00
|
717525.59
|
755638.86
|
1257452.96
|
1245568.57
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
0.38
|
0.13
|
2.89
|
0.00
|
0.12
|
0.63
|
4011.00
|
4020.00
|
1215.00
|
1237.00
|
717525.59
|
755638.86
|
1257452.96
|
1245568.57
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_btc_on_bch <- output
Effects on BSV
target <- "BSV"
base <- "BTC"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-05-11 19:23:43"),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-05-11 19:23:43"),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- "blank"
linetype_s <- "solid"
target_before <- "BSV"
target_after <- "BCH"
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$bsv,
target_before,
target_after,
target_line = FALSE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
-161.25
|
58.34
|
-2.76
|
0.01
|
-275.60
|
-46.90
|
3977.00
|
4046.00
|
1561.00
|
713.00
|
936246.37
|
405649.05
|
1462716.39
|
730546.01
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
-180.90
|
58.34
|
-3.10
|
0.00
|
-295.25
|
-66.55
|
3977.00
|
4046.00
|
1561.00
|
713.00
|
936246.37
|
405649.05
|
1462716.39
|
730546.01
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
-180.90
|
65.93
|
-2.74
|
0.01
|
-310.11
|
-51.68
|
3977.00
|
4046.00
|
1561.00
|
713.00
|
936246.37
|
405649.05
|
1462716.39
|
730546.01
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
0.86
|
0.11
|
7.63
|
0.00
|
0.64
|
1.08
|
3977.00
|
4046.00
|
1274.00
|
1060.00
|
770730.85
|
626490.09
|
1257671.68
|
1041695.68
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
0.91
|
0.11
|
8.10
|
0.00
|
0.69
|
1.13
|
3977.00
|
4046.00
|
1274.00
|
1060.00
|
770730.85
|
626490.09
|
1257671.68
|
1041695.68
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
0.91
|
0.13
|
7.05
|
0.00
|
0.66
|
1.16
|
3977.00
|
4046.00
|
1274.00
|
1060.00
|
770730.85
|
626490.09
|
1257671.68
|
1041695.68
|
1589225023.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_btc_on_bsv <- output
Export
path <- "figuretable/summarize_arrival_rate_rdd"
figure_list <-
list(
btc_on_btc = output_btc_on_btc$figure,
btc_on_bch = output_btc_on_bch$figure,
btc_on_bsv = output_btc_on_bsv$figure
)
foreach (i = 1:length(figure_list)) %do% {
name_i <- names(figure_list)[i]
figure_i <- figure_list[[i]]
foreach (j = 1:length(figure_i)) %do% {
name_ij <- names(figure_i)[j]
figure_ij <- figure_i[[j]]
savename_ij <-
paste0(path, "/rdd_reward_change_for_", name_i, "_", name_ij, ".png")
figure_ij %>%
ggsave(
filename = here::here(savename_ij),
width = 4,
height = 3
)
}
}
## [[1]]
## [[1]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_winning_rate_long.png"
##
## [[1]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_winning_rate_short.png"
##
## [[1]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_winning_rate_block.png"
##
## [[1]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_expected_reward_long.png"
##
## [[1]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_expected_reward_short.png"
##
## [[1]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_expected_reward_block.png"
##
## [[1]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_block_time_long.png"
##
## [[1]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_block_time_short.png"
##
## [[1]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_block_time_block.png"
##
## [[1]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_hash_rate_long.png"
##
## [[1]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_hash_rate_short.png"
##
## [[1]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_btc_hash_rate_block.png"
##
##
## [[2]]
## [[2]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_winning_rate_long.png"
##
## [[2]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_winning_rate_short.png"
##
## [[2]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_winning_rate_block.png"
##
## [[2]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_expected_reward_long.png"
##
## [[2]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_expected_reward_short.png"
##
## [[2]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_expected_reward_block.png"
##
## [[2]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_block_time_long.png"
##
## [[2]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_block_time_short.png"
##
## [[2]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_block_time_block.png"
##
## [[2]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_hash_rate_long.png"
##
## [[2]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_hash_rate_short.png"
##
## [[2]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bch_hash_rate_block.png"
##
##
## [[3]]
## [[3]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_winning_rate_long.png"
##
## [[3]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_winning_rate_short.png"
##
## [[3]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_winning_rate_block.png"
##
## [[3]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_expected_reward_long.png"
##
## [[3]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_expected_reward_short.png"
##
## [[3]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_expected_reward_block.png"
##
## [[3]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_block_time_long.png"
##
## [[3]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_block_time_short.png"
##
## [[3]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_block_time_block.png"
##
## [[3]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_hash_rate_long.png"
##
## [[3]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_hash_rate_short.png"
##
## [[3]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_btc_on_bsv_hash_rate_block.png"
result_list <-
list(
BTC = output_btc_on_btc$result,
BCH = output_btc_on_bch$result,
BSV = output_btc_on_bsv$result
)
savename <- "figuretable/summarize_arrival_rate_rdd/effect_btc_halving.tex"
make_table_rdd(
result_list,
savename
)
|
|
Log of hash rate (H/s)
|
|
|
BTC
|
BCH
|
BSV
|
|
Estimate
|
-0.119
|
0.375
|
0.909
|
|
Std.error
|
(0.132)
|
(0.13)
|
(0.129)
|
|
Nobs.left
|
4188
|
4011
|
3977
|
|
Nobs.right
|
3755
|
4020
|
4046
|
|
H.left
|
5.87e+05
|
7.18e+05
|
7.71e+05
|
|
H.right
|
9.28e+05
|
7.56e+05
|
6.26e+05
|
|
B.left
|
9.45e+05
|
1.26e+06
|
1.26e+06
|
|
B.right
|
1.45e+06
|
1.25e+06
|
1.04e+06
|
|
Order.regression
|
2
|
2
|
2
|
|
Kernel
|
Triangular
|
Triangular
|
Triangular
|
|
Bwselect
|
Msetwo
|
Msetwo
|
Msetwo
|
NULL
Reward change around BCH halving (esmv)
Effects on BTC
target <- "BTC"
base <- "BCH"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- c("blank",
"dashed"
)
linetype_s <- c("solid",
"dashed"
)
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$btc,
target_before = "BSV",
target_after = "BCH",
target_line = TRUE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
39.15
|
54.03
|
0.72
|
0.47
|
-66.76
|
145.05
|
3769.00
|
4227.00
|
1017.00
|
1064.00
|
577363.80
|
574921.55
|
868795.73
|
1020698.99
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
55.01
|
54.03
|
1.02
|
0.31
|
-50.90
|
160.91
|
3769.00
|
4227.00
|
1017.00
|
1064.00
|
577363.80
|
574921.55
|
868795.73
|
1020698.99
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
55.01
|
63.57
|
0.87
|
0.39
|
-69.59
|
179.60
|
3769.00
|
4227.00
|
1017.00
|
1064.00
|
577363.80
|
574921.55
|
868795.73
|
1020698.99
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
-0.07
|
0.13
|
-0.53
|
0.60
|
-0.32
|
0.18
|
3769.00
|
4227.00
|
1209.00
|
798.00
|
682020.37
|
439978.73
|
1029314.51
|
757486.64
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
-0.10
|
0.13
|
-0.74
|
0.46
|
-0.35
|
0.16
|
3769.00
|
4227.00
|
1209.00
|
798.00
|
682020.37
|
439978.73
|
1029314.51
|
757486.64
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
-0.10
|
0.15
|
-0.63
|
0.53
|
-0.39
|
0.20
|
3769.00
|
4227.00
|
1209.00
|
798.00
|
682020.37
|
439978.73
|
1029314.51
|
757486.64
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_bch_on_btc <- output
Effects on BCH
target <- "BCH"
base <- "BCH"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- c("blank",
"dashed"
)
linetype_s <- c("solid",
"dashed"
)
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$bch,
target_before,
target_after,
target_before = "BSV",
target_after = "BCH",
target_line = TRUE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
491.06
|
140.44
|
3.50
|
0.00
|
215.80
|
766.32
|
4030.00
|
3926.00
|
1453.00
|
543.00
|
866837.43
|
396390.80
|
1360964.63
|
829446.77
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
543.20
|
140.44
|
3.87
|
0.00
|
267.94
|
818.46
|
4030.00
|
3926.00
|
1453.00
|
543.00
|
866837.43
|
396390.80
|
1360964.63
|
829446.77
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
543.20
|
156.70
|
3.47
|
0.00
|
236.07
|
850.32
|
4030.00
|
3926.00
|
1453.00
|
543.00
|
866837.43
|
396390.80
|
1360964.63
|
829446.77
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
-0.66
|
0.14
|
-4.79
|
0.00
|
-0.94
|
-0.39
|
4030.00
|
3926.00
|
1593.00
|
652.00
|
947476.48
|
423065.41
|
1449261.81
|
916772.20
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
-0.71
|
0.14
|
-5.14
|
0.00
|
-0.98
|
-0.44
|
4030.00
|
3926.00
|
1593.00
|
652.00
|
947476.48
|
423065.41
|
1449261.81
|
916772.20
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
-0.71
|
0.15
|
-4.60
|
0.00
|
-1.02
|
-0.41
|
4030.00
|
3926.00
|
1593.00
|
652.00
|
947476.48
|
423065.41
|
1449261.81
|
916772.20
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_bch_on_bch <- output
Effects on BSV
target <- "BSV"
base <- "BCH"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- c("blank",
"dashed"
)
linetype_s <- c("solid",
"dashed"
)
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$bsv,
target_before,
target_after,
target_before = "BSV",
target_after = "BCH",
target_line = TRUE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
133.57
|
63.69
|
2.10
|
0.04
|
8.74
|
258.40
|
4025.00
|
3909.00
|
1599.00
|
1408.00
|
944783.74
|
896331.97
|
1419150.23
|
1254411.61
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
143.37
|
63.69
|
2.25
|
0.02
|
18.54
|
268.20
|
4025.00
|
3909.00
|
1599.00
|
1408.00
|
944783.74
|
896331.97
|
1419150.23
|
1254411.61
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
143.37
|
76.40
|
1.88
|
0.06
|
-6.37
|
293.11
|
4025.00
|
3909.00
|
1599.00
|
1408.00
|
944783.74
|
896331.97
|
1419150.23
|
1254411.61
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
0.37
|
0.17
|
2.20
|
0.03
|
0.04
|
0.71
|
4025.00
|
3909.00
|
759.00
|
430.00
|
448399.56
|
302888.69
|
785678.53
|
669985.78
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
0.41
|
0.17
|
2.44
|
0.01
|
0.08
|
0.75
|
4025.00
|
3909.00
|
759.00
|
430.00
|
448399.56
|
302888.69
|
785678.53
|
669985.78
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
0.41
|
0.19
|
2.22
|
0.03
|
0.05
|
0.78
|
4025.00
|
3909.00
|
759.00
|
430.00
|
448399.56
|
302888.69
|
785678.53
|
669985.78
|
1586348364.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_bch_on_bsv <- output
Export
path <- "figuretable/summarize_arrival_rate_rdd"
figure_list <-
list(
bch_on_btc = output_bch_on_btc$figure,
bch_on_bch = output_bch_on_bch$figure,
bch_on_bsv = output_bch_on_bsv$figure
)
foreach (i = 1:length(figure_list)) %do% {
name_i <- names(figure_list)[i]
figure_i <- figure_list[[i]]
foreach (j = 1:length(figure_i)) %do% {
name_ij <- names(figure_i)[j]
figure_ij <- figure_i[[j]]
savename_ij <-
paste0(path, "/rdd_reward_change_for_", name_i, "_", name_ij, ".png")
figure_ij %>%
ggsave(
filename = here::here(savename_ij),
width = 4,
height = 3
)
}
}
## [[1]]
## [[1]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_winning_rate_long.png"
##
## [[1]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_winning_rate_short.png"
##
## [[1]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_winning_rate_block.png"
##
## [[1]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_expected_reward_long.png"
##
## [[1]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_expected_reward_short.png"
##
## [[1]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_expected_reward_block.png"
##
## [[1]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_block_time_long.png"
##
## [[1]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_block_time_short.png"
##
## [[1]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_block_time_block.png"
##
## [[1]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_hash_rate_long.png"
##
## [[1]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_hash_rate_short.png"
##
## [[1]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_btc_hash_rate_block.png"
##
##
## [[2]]
## [[2]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_winning_rate_long.png"
##
## [[2]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_winning_rate_short.png"
##
## [[2]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_winning_rate_block.png"
##
## [[2]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_expected_reward_long.png"
##
## [[2]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_expected_reward_short.png"
##
## [[2]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_expected_reward_block.png"
##
## [[2]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_block_time_long.png"
##
## [[2]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_block_time_short.png"
##
## [[2]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_block_time_block.png"
##
## [[2]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_hash_rate_long.png"
##
## [[2]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_hash_rate_short.png"
##
## [[2]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bch_hash_rate_block.png"
##
##
## [[3]]
## [[3]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_winning_rate_long.png"
##
## [[3]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_winning_rate_short.png"
##
## [[3]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_winning_rate_block.png"
##
## [[3]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_expected_reward_long.png"
##
## [[3]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_expected_reward_short.png"
##
## [[3]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_expected_reward_block.png"
##
## [[3]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_block_time_long.png"
##
## [[3]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_block_time_short.png"
##
## [[3]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_block_time_block.png"
##
## [[3]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_hash_rate_long.png"
##
## [[3]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_hash_rate_short.png"
##
## [[3]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bch_on_bsv_hash_rate_block.png"
result_list <-
list(
BTC = output_bch_on_btc$result,
BCH = output_bch_on_bch$result,
BSV = output_bch_on_bsv$result
)
savename <- "figuretable/summarize_arrival_rate_rdd/effect_bch_halving.tex"
make_table_rdd(
result_list,
savename
)
|
|
Log of hash rate (H/s)
|
|
|
BTC
|
BCH
|
BSV
|
|
Estimate
|
-0.0951
|
-0.712
|
0.415
|
|
Std.error
|
(0.151)
|
(0.155)
|
(0.187)
|
|
Nobs.left
|
3769
|
4030
|
4025
|
|
Nobs.right
|
4227
|
3926
|
3909
|
|
H.left
|
6.82e+05
|
9.47e+05
|
4.48e+05
|
|
H.right
|
4.4e+05
|
4.23e+05
|
3.03e+05
|
|
B.left
|
1.03e+06
|
1.45e+06
|
7.86e+05
|
|
B.right
|
7.57e+05
|
9.17e+05
|
6.7e+05
|
|
Order.regression
|
2
|
2
|
2
|
|
Kernel
|
Triangular
|
Triangular
|
Triangular
|
|
Bwselect
|
Msetwo
|
Msetwo
|
Msetwo
|
NULL
Reward change around BSV halving (esmv)
Effects on BTC
target <- "BTC"
base <- "BSV"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- c("dashed",
"blank"
)
linetype_s <- c("dashed",
"solid"
)
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$btc,
target_before,
target_after,
target_before = "BSV",
target_after = "BCH",
target_line = TRUE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
-42.40
|
48.74
|
-0.87
|
0.38
|
-137.93
|
53.13
|
3789.00
|
4219.00
|
1069.00
|
1387.00
|
610108.53
|
759188.77
|
908237.44
|
1147265.08
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
-40.86
|
48.74
|
-0.84
|
0.40
|
-136.39
|
54.67
|
3789.00
|
4219.00
|
1069.00
|
1387.00
|
610108.53
|
759188.77
|
908237.44
|
1147265.08
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
-40.86
|
58.19
|
-0.70
|
0.48
|
-154.92
|
73.19
|
3789.00
|
4219.00
|
1069.00
|
1387.00
|
610108.53
|
759188.77
|
908237.44
|
1147265.08
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
0.10
|
0.11
|
0.96
|
0.34
|
-0.11
|
0.31
|
3789.00
|
4219.00
|
1354.00
|
1156.00
|
774201.66
|
616892.48
|
1163918.48
|
963795.30
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
0.09
|
0.11
|
0.85
|
0.39
|
-0.12
|
0.30
|
3789.00
|
4219.00
|
1354.00
|
1156.00
|
774201.66
|
616892.48
|
1163918.48
|
963795.30
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
0.09
|
0.13
|
0.72
|
0.47
|
-0.16
|
0.34
|
3789.00
|
4219.00
|
1354.00
|
1156.00
|
774201.66
|
616892.48
|
1163918.48
|
963795.30
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_bsv_on_btc <- output
Effects on BCH
target <- "BCH"
base <- "BSV"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- c("dashed",
"blank"
)
linetype_s <- c("dashed",
"solid"
)
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$bch,
target_before,
target_after,
target_before = "BSV",
target_after = "BCH",
target_line = TRUE
)







## Warning: Removed 1 rows containing missing values (geom_segment).



## Warning: Removed 1 rows containing missing values (geom_segment).

Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
-1264.95
|
190.75
|
-6.63
|
0.00
|
-1638.81
|
-891.10
|
3905.00
|
4014.00
|
253.00
|
746.00
|
221080.98
|
425386.43
|
552117.04
|
751204.10
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
-1339.16
|
190.75
|
-7.02
|
0.00
|
-1713.01
|
-965.30
|
3905.00
|
4014.00
|
253.00
|
746.00
|
221080.98
|
425386.43
|
552117.04
|
751204.10
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
-1339.16
|
200.16
|
-6.69
|
0.00
|
-1731.47
|
-946.84
|
3905.00
|
4014.00
|
253.00
|
746.00
|
221080.98
|
425386.43
|
552117.04
|
751204.10
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
1.80
|
0.23
|
7.87
|
0.00
|
1.35
|
2.25
|
3905.00
|
4014.00
|
203.00
|
770.00
|
190546.63
|
454251.81
|
537558.55
|
711794.65
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
1.89
|
0.23
|
8.25
|
0.00
|
1.44
|
2.34
|
3905.00
|
4014.00
|
203.00
|
770.00
|
190546.63
|
454251.81
|
537558.55
|
711794.65
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
1.89
|
0.24
|
7.85
|
0.00
|
1.42
|
2.36
|
3905.00
|
4014.00
|
203.00
|
770.00
|
190546.63
|
454251.81
|
537558.55
|
711794.65
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_bsv_on_bch <- output
Effects on BSV
target <- "BSV"
base <- "BSV"
cutoff <- 630000
h <- 3600 * 24 * 28
h_short <- 3600 * 24 * 2
original <- TRUE
binselect <- "esmv"
p <- 4
halving_line_s <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
halving_line_l <- as.POSIXct(
c("2020-04-08 12:19:24",
"2020-04-10 00:48:30"
),
origin = "1970-01-01",
tz = "UTC"
) %>%
as.numeric()
linetype_l <- c("dashed",
"blank"
)
linetype_s <- c("dashed",
"solid"
)
output <-
perform_rdd_reward_change(
epoch_currency,
target,
base,
cutoff,
h,
h_short,
original,
binselect,
p,
halving_line_l,
halving_line_s,
linetype_l,
linetype_s,
palette = colour_palette$bsv,
target_before,
target_after,
target_before = "BSV",
target_after = "BCH",
target_line = TRUE
)











Block time (s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
1009.75
|
219.18
|
4.61
|
0.00
|
580.15
|
1439.34
|
4037.00
|
3945.00
|
1656.00
|
364.00
|
982395.50
|
268597.15
|
1459256.74
|
685748.52
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
1073.93
|
219.18
|
4.90
|
0.00
|
644.34
|
1503.52
|
4037.00
|
3945.00
|
1656.00
|
364.00
|
982395.50
|
268597.15
|
1459256.74
|
685748.52
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
1073.93
|
234.55
|
4.58
|
0.00
|
614.21
|
1533.64
|
4037.00
|
3945.00
|
1656.00
|
364.00
|
982395.50
|
268597.15
|
1459256.74
|
685748.52
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
Log of hash rate (h/s): Optimal h
|
term
|
estimate
|
std.error
|
statistic
|
p.value
|
conf.low
|
conf.high
|
nobs.left
|
nobs.right
|
nobs.effective.left
|
nobs.effective.right
|
h.left
|
h.right
|
b.left
|
b.right
|
cutoff
|
order.regression
|
order.bias
|
kernel
|
bwselect
|
|
Conventional
|
-1.40
|
0.21
|
-6.81
|
0.00
|
-1.80
|
-1.00
|
4037.00
|
3945.00
|
824.00
|
396.00
|
484624.96
|
295368.25
|
822366.86
|
638132.09
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Bias-Corrected
|
-1.50
|
0.21
|
-7.30
|
0.00
|
-1.90
|
-1.10
|
4037.00
|
3945.00
|
824.00
|
396.00
|
484624.96
|
295368.25
|
822366.86
|
638132.09
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
|
Robust
|
-1.50
|
0.23
|
-6.55
|
0.00
|
-1.95
|
-1.05
|
4037.00
|
3945.00
|
824.00
|
396.00
|
484624.96
|
295368.25
|
822366.86
|
638132.09
|
1586479710.00
|
2.00
|
2.00
|
Triangular
|
msetwo
|
output_bsv_on_bsv <- output
Export
path <- "figuretable/summarize_arrival_rate_rdd"
figure_list <-
list(
bsv_on_btc = output_bsv_on_btc$figure,
bsv_on_bch = output_bsv_on_bch$figure,
bsv_on_bsv = output_bsv_on_bsv$figure
)
foreach (i = 1:length(figure_list)) %do% {
name_i <- names(figure_list)[i]
figure_i <- figure_list[[i]]
foreach (j = 1:length(figure_i)) %do% {
name_ij <- names(figure_i)[j]
figure_ij <- figure_i[[j]]
savename_ij <-
paste0(path, "/rdd_reward_change_for_", name_i, "_", name_ij, ".png")
figure_ij %>%
ggsave(
filename = here::here(savename_ij),
width = 4,
height = 3
)
}
}
## Warning: Removed 1 rows containing missing values (geom_segment).
## Warning: Removed 1 rows containing missing values (geom_segment).
## [[1]]
## [[1]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_winning_rate_long.png"
##
## [[1]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_winning_rate_short.png"
##
## [[1]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_winning_rate_block.png"
##
## [[1]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_expected_reward_long.png"
##
## [[1]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_expected_reward_short.png"
##
## [[1]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_expected_reward_block.png"
##
## [[1]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_block_time_long.png"
##
## [[1]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_block_time_short.png"
##
## [[1]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_block_time_block.png"
##
## [[1]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_hash_rate_long.png"
##
## [[1]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_hash_rate_short.png"
##
## [[1]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_btc_hash_rate_block.png"
##
##
## [[2]]
## [[2]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_winning_rate_long.png"
##
## [[2]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_winning_rate_short.png"
##
## [[2]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_winning_rate_block.png"
##
## [[2]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_expected_reward_long.png"
##
## [[2]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_expected_reward_short.png"
##
## [[2]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_expected_reward_block.png"
##
## [[2]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_block_time_long.png"
##
## [[2]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_block_time_short.png"
##
## [[2]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_block_time_block.png"
##
## [[2]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_hash_rate_long.png"
##
## [[2]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_hash_rate_short.png"
##
## [[2]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bch_hash_rate_block.png"
##
##
## [[3]]
## [[3]][[1]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_winning_rate_long.png"
##
## [[3]][[2]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_winning_rate_short.png"
##
## [[3]][[3]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_winning_rate_block.png"
##
## [[3]][[4]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_expected_reward_long.png"
##
## [[3]][[5]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_expected_reward_short.png"
##
## [[3]][[6]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_expected_reward_block.png"
##
## [[3]][[7]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_block_time_long.png"
##
## [[3]][[8]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_block_time_short.png"
##
## [[3]][[9]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_block_time_block.png"
##
## [[3]][[10]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_hash_rate_long.png"
##
## [[3]][[11]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_hash_rate_short.png"
##
## [[3]][[12]]
## [1] "C:/Users/haruokakehi/Documents/Kawaguchi/BlockChain/BlockChain/figuretable/summarize_arrival_rate_rdd/rdd_reward_change_for_bsv_on_bsv_hash_rate_block.png"
result_list <-
list(
BTC = output_bsv_on_btc$result,
BCH = output_bsv_on_bch$result,
BSV = output_bsv_on_bsv$result
)
savename <- "figuretable/summarize_arrival_rate_rdd/effect_bsv_halving.tex"
make_table_rdd(
result_list,
savename
)
|
|
Log of hash rate (H/s)
|
|
|
BTC
|
BCH
|
BSV
|
|
Estimate
|
0.0905
|
1.89
|
-1.5
|
|
Std.error
|
(0.126)
|
(0.24)
|
(0.229)
|
|
Nobs.left
|
3789
|
3905
|
4037
|
|
Nobs.right
|
4219
|
4014
|
3945
|
|
H.left
|
7.74e+05
|
1.91e+05
|
4.85e+05
|
|
H.right
|
6.17e+05
|
4.54e+05
|
2.95e+05
|
|
B.left
|
1.16e+06
|
5.38e+05
|
8.22e+05
|
|
B.right
|
9.64e+05
|
7.12e+05
|
6.38e+05
|
|
Order.regression
|
2
|
2
|
2
|
|
Kernel
|
Triangular
|
Triangular
|
Triangular
|
|
Bwselect
|
Msetwo
|
Msetwo
|
Msetwo
|
NULL